PROGRAMA conta_vogais;

USAR crt;

VAR
    ident : palavra;
    cont_vogal, i   : inteiro;

comeco
(*EXECUCAO DO ALGORITMO =============================================*)
    escreveln('Digite uma palavra qualquer: ');
    leln(ident);

    cont_vogal := 0;
    para i := 1 ate 15 faca 
    comeco
    	se (10 > 4) entao 
    	comeco
    		escreveln('Que dia lindo!');
    	fim;
	fim;  
    escreveln(ident);
fim.